home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8606a.d64 / swap bas (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  28 lines
  1. 10 REM ****** SWAP TESTPROGRAMM ******
  2. 20 PRINTCHR$(147):REM C 128 = WAIT0,1
  3. 30 POKE53280,0:POKE53281,5
  4. 40 POKE241,1:REM C64 = POKE 646,1
  5. 50 REM ----- FARBRAM BELEGEN (AELTERE C64) -----
  6. 60 FOR I=0 TO 1000:POKE55296+I,1:NEXTI:REM DAS DAUERT ETWAS
  7. 70 REM ----- BILDSCHIRM BELEGEN -----
  8. 80 PRINT"WAS DIE ALTE DAME EMPFINDET, WENN SIE,  NACHDEM SIE IHREN KANARIENVOGEL "
  9. 90 PRINT"GEFUETTERT HAT UND SPAZIEREN GEGANGEN   IST, BEI DER RUECKKEHR DEN KAEFIG "
  10. 100 PRINT"MIT EINEM LEBENDIGEN TRUTHAHN ZUM       PLATZEN VOLL FINDET,"
  11. 110 PRINTCHR$(17)CHR$(17)CHR$(17)CHR$(17)CHR$(17)
  12. 120 PRINT"ODER DER ALTE HERR,DER,NACHDEM ER UEBER NACHT SEINEN KLEINEN TERRIER "
  13. 130 PRINT"AN DIE KETTE GELEGT HAT, EIN NILPFERD   FINDET, DAS UM DIE HUNDHUETTE "
  14. 140 PRINT"HERUM SCHNAUBT...":PRINTTAB(20)"(LEWIS CARROLL 1882)"
  15. 150 PRINTCHR$(17)CHR$(17)"JEDER TASTENDRUCK FUEHRT ZUM TAUSCH"
  16. 160 GETA$:IFA$=""THEN160
  17. 170 REM ----- PARAMETER FESTLEGEN -----
  18. 180 B1=1024:REM STARTADRESSE BEREICH 1
  19. 190 B2=1504:REM STARTADRESSE BEREICH 2
  20. 200 L =240:REM LAENGE = 6 ZEILEN ZU JE 40 ZEICHEN
  21. 210 REM ----- PARAMETER UEBERGEBEN -----
  22. 220 A=INT(B1/256):POKE255,A:POKE254,B1-256*A
  23. 230 A=INT(B2/256):POKE253,A:POKE252,B2-256*A
  24. 240 A=INT(L/256):POKE251,A:POKE250,L-256*A
  25. 250 REM ----- SWAP AUSFUEHREN -----
  26. 260 SYS4864:REM C64 = SYS 49152
  27. 270 GOTO160
  28.